home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00004Series_131.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  556 b   |  25 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   puppetTransition(47, 1, 8)
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if field "diamodnum" contains "4" then
  9.     play frame "5perfa"
  10.     abort()
  11.   end if
  12.   if field "diamodnum" contains "5" then
  13.     play frame "5perfa"
  14.     abort()
  15.   end if
  16.   if field "diamodnum" contains "6" then
  17.     play frame "5perfb"
  18.     abort()
  19.   end if
  20.   if field "diamodnum" contains "8" then
  21.     play frame "5perfb"
  22.     abort()
  23.   end if
  24. end
  25.